0 TI$="000000":C=5:B=3125
1 B=B-4:A=B-8:A=A-A/C:IFA<>INT(A)GOTO1
2 A=B-1:D%=5-(A/C-INT(A/C))*C+.5:B=3125*D%
3 B=B-4:A=B-8:A=A-A/C:IFA<>INT(A)GOTO3
4 PRINTB-(D%*2101+20);B;TI/60